approximation Module

polinomial approximation


Uses


Functions

public function polin(k, x)

Arguments

Type IntentOptional Attributes Name
integer :: k
real(kind=wp) :: x

Return Value real(kind=wp)

public function polin1(k, x)

Arguments

Type IntentOptional Attributes Name
integer :: k
real(kind=wp) :: x

Return Value real(kind=wp)

public function polin2(k, x)

Arguments

Type IntentOptional Attributes Name
integer :: k
real(kind=wp) :: x

Return Value real(kind=wp)

public function fdf(x, c, n, df) result(p)

вычисление значения полинома и его производной

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x
real(kind=wp), intent(in) :: c(n)
integer, intent(in) :: n
real(kind=wp), intent(out) :: df

Return Value real(kind=wp)

public function fdfddf(x, c, n, df, ddf)

вычисление значения полинома и первой и второй производной

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x
real(kind=wp), intent(in) :: c(n)
integer, intent(in) :: n
real(kind=wp), intent(out) :: df
real(kind=wp), intent(out) :: ddf

Return Value real(kind=wp)


Subroutines

public subroutine approx(x, y, n, f, m, b)

the data to be approximated.
number of points in the input data.
number of coefficients of decomposition over base functions :

found decomposition coefficients

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: x(n)
real(kind=wp) :: y(n)
integer :: n
real :: f
integer :: m
real(kind=wp) :: b(*)

public subroutine ludcmp(a, n, np, indx, d)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: a(np,np)
integer :: n
integer :: np
real(kind=wp) :: indx(n)
real :: d

public subroutine lubksb(a, n, np, indx, b)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: a(np,np)
integer :: n
integer :: np
real(kind=wp) :: indx(n)
real(kind=wp) :: b(n)